home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006b.dsk / ABOUT.HANGMAN.bas next >
BASIC Source File  |  2003-06-12  |  1KB  |  26 lines
  1. 10 D$ = "<CTRL-D>"
  2. 20  HOME : VTAB 10: HTAB 15: PRINT "<< HANGMAN >>"
  3. 30  VTAB 12: PRINT "CREATED BY JIM KUNZ"
  4. 40  VTAB 14: HTAB 5: PRINT "FOR PROF. BEIDLER"
  5. 50  VTAB 16: HTAB 5: PRINT "IN CMPS 125 - ART. INTELL."
  6. 60  FOR I = 0 TO 2000: NEXT I
  7. 100  HOME : VTAB 2: PRINT "THIS SYSTEM HAS THREE MAIN COMPONENTS"
  8. 110  PRINT : PRINT "1. THE HANGMAN PROGRAM"
  9. 120  HTAB 5: PRINT "PLAYS HANGMAN AND LEARNS NEW WORDS"
  10. 130  PRINT : PRINT "2. INSPECT FILES"
  11. 140  HTAB 5: PRINT "LET'S YOU LOOK AT THE FILES OF"
  12. 150  HTAB 5: PRINT "WORDS THAT ARE AVAILABLE"
  13. 160  PRINT : PRINT "3. REPLACE WORDS"
  14. 170  HTAB 5: PRINT "LET'S YOU FIX A WORD FILE"
  15. 180  VTAB 24: PRINT "ANY KEY TO CONTINUE";: GET A$
  16. 200  REM  DIRECTORY
  17. 210  HOME : VTAB 2: HTAB 5: PRINT "MAKE YOUR SELECTION"
  18. 220  VTAB 5: HTAB 10: PRINT "1 = HANGMAN"
  19. 230  VTAB 7: HTAB 10: PRINT "2 = INSPECT FILES"
  20. 240  VTAB 9: HTAB 10: PRINT "3 = REPLACE WORDS"
  21. 250  VTAB 11: HTAB 15: INVERSE : PRINT "SELECT";: NORMAL : GET A$: PRINT A$
  22. 260 D$ = "<CTRL-D>"
  23. 270  IF A$ = "1"  THEN  PRINT D$;"RUN HANGMAN"
  24. 280  IF A$ = "2"  THEN  PRINT D$;"RUN INSPECT FILES"
  25. 290  IF A$ = "3"  THEN  PRINT D$;"RUN REPLACE WORDS"
  26. 299  END